library(gapminder)
library(dplyr)
library(ggplot2)
library(broom)
library(gganimate)
theme_set(theme_bw())
p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent, frame = year)) +
geom_point() +
scale_x_log10()
library(plotly)
ggplotly(p, height = 900, width = 700) %>%
animation_opts(frame = 200,
easing = "linear",
redraw = FALSE)
mtcars %>%
ggvis(~wt, ~mpg) %>%
layer_smooths(span = input_slider(0.5, 1, value = 1)) %>%
layer_points(size := input_slider(100, 1000, value = 100))
Showing dynamic visualisation. Press Escape/Ctrl + C to stop.

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.
When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).
LS0tDQp0aXRsZTogIkdndmlzIHNvIHPDoW5oIHbhu5tpIGdncGxvdCINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCg0KYGBge3J9DQoNCmxpYnJhcnkoZ2FwbWluZGVyKQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkoYnJvb20pDQpsaWJyYXJ5KGdnYW5pbWF0ZSkNCg0KdGhlbWVfc2V0KHRoZW1lX2J3KCkpDQpwIDwtIGdncGxvdChnYXBtaW5kZXIsIGFlcyhnZHBQZXJjYXAsIGxpZmVFeHAsIHNpemUgPSBwb3AsIGNvbG9yID0gY29udGluZW50LCBmcmFtZSA9IHllYXIpKSArDQogIGdlb21fcG9pbnQoKSArDQogIHNjYWxlX3hfbG9nMTAoKQ0KDQpsaWJyYXJ5KHBsb3RseSkNCmdncGxvdGx5KHAsIGhlaWdodCA9IDkwMCwgd2lkdGggPSA3MDApICU+JQ0KICBhbmltYXRpb25fb3B0cyhmcmFtZSA9IDIwMCwNCiAgICAgICAgICAgICAgICAgZWFzaW5nID0gImxpbmVhciIsDQogICAgICAgICAgICAgICAgIHJlZHJhdyA9IEZBTFNFKQ0KYGBgDQoNCg0KYGBge3J9DQpsaWJyYXJ5KGdndmlzKQ0KDQptdGNhcnMgJT4lDQogIGdndmlzKH53dCwgfm1wZykgJT4lDQogIGxheWVyX3Ntb290aHMoc3BhbiA9IGlucHV0X3NsaWRlcigwLjUsIDEsIHZhbHVlID0gMSkpICU+JQ0KICBsYXllcl9wb2ludHMoc2l6ZSA6PSBpbnB1dF9zbGlkZXIoMTAwLCAxMDAwLCB2YWx1ZSA9IDEwMCkpDQoNCmBgYA0KDQoNCmBgYHtyfQ0KICBsaWJyYXJ5KGdncGxvdDIpDQogIGRhdGEuZGlhbW9uZHM9Z2dwbG90Mjo6ZGlhbW9uZHMNCiAgbGlicmFyeShwbG90bHkpDQogIGdnPWdncGxvdChkYXRhLmRpYW1vbmRzLGFlcyh4PWNhcmF0LHk9cHJpY2UsY29sb3I9Y29sb3IpKStnZW9tX3BvaW50KGFscGhhPTAuMykNCiAgZ2dwbG90bHkoZ2cpDQpgYGANCg0KQWRkIGEgbmV3IGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqSW5zZXJ0IENodW5rKiBidXR0b24gb24gdGhlIHRvb2xiYXIgb3IgYnkgcHJlc3NpbmcgKkN0cmwrQWx0K0kqLg0KDQpXaGVuIHlvdSBzYXZlIHRoZSBub3RlYm9vaywgYW4gSFRNTCBmaWxlIGNvbnRhaW5pbmcgdGhlIGNvZGUgYW5kIG91dHB1dCB3aWxsIGJlIHNhdmVkIGFsb25nc2lkZSBpdCAoY2xpY2sgdGhlICpQcmV2aWV3KiBidXR0b24gb3IgcHJlc3MgKkN0cmwrU2hpZnQrSyogdG8gcHJldmlldyB0aGUgSFRNTCBmaWxlKS4NCg==